#	$Id:	$

{

	package	currentAccount;

	use strict;

	use Data::Dumper;

	use lib $ENV{BANKS};

	our @ISA = qw(account);

	sub new() {

		my $class = shift;
		my $name  = shift;

		my $self = $class->SUPER::new( $name );

		$self->setAccountType( 'Current' );

		bless $self, $class;

		$self->{OVERDRAFT_LIMIT} = undef;

		print Dumper( $self ) . "\n";

		return $self;
	}

	sub setOverdraftLimit() {

		my $self  = shift;
		my $limit = shift;

		$self->{OVERDRAFT_LIMIT} = $limit;
	}

	sub getOverdraftLimit() {

		my $self  = shift;
		my $limit = shift;

		return $self->{OVERDRAFT_LIMIT};
	}

	sub operate() {

		#	Operate on the current account

		my $self = shift;

		$self->setOverdraftLimit( 10 );

		print ", OVERDRAFT LIMIT=" . $self->getOverdraftLimit . "\n";

	}

}    #	Class:	currentAccount;

1;

